home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Text Processing / Alpha.5.81 folder / Tcl / SystemCode / method.tcl < prev    next >
Encoding:
Text File  |  1994-04-24  |  343 b   |  18 lines  |  [TEXT/ALFA]
  1. #================================================================================
  2.  
  3. set mpos("") ""
  4.  
  5. proc markFile {} {
  6.     global mode
  7.  
  8.     case $mode in {
  9.         "C" {return [cMarkFile]}
  10.         "TeX" {return [texMarkFile]}
  11.          "C++" {return [c++MarkFile]}
  12.         "Csh" {return [cshMarkFile]}
  13.         "Tcl" {return [tclMarkFile]}
  14.         "BRWZ" {return [browseMarkFile]}
  15.     }
  16. }
  17.  
  18.